org6747h
.radix16d
ldc,10
l1lda,c
cp6
jrnz,l3
ldb,40
l2djnzl2
lda,4
out(81),a
l3lda,(672dh)
and3
cp3
jrnz,l4
deca
l4adda,a
adda,a
adda,a
adda,a
adda,c
deca
ldhl,8170
ldd,0
lde,a
addhl,de
lda,(hl)
inchl
ldh,(hl)
adda,1fh
ldl,a
pushhl
ldb,20
l5rl(hl)
decl
djnzl5
rla
and1
pophl
or(hl)
ld(hl),a
decc
jrnz,l1
vegeret
